home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 6 / CDL_N6.iso / mac / CD Loisirs N°6 / PaperPlanes / P17-20 / 00039.ls < prev    next >
Encoding:
Text File  |  1994-08-25  |  499 b   |  21 lines
  1. on mouseDown
  2.   global theVCRButtons, Descrip
  3.   mCancelPlay(theVCRButtons)
  4.   mCancelFastFwd(theVCRButtons)
  5.   buttonDown(Descrip, the number of cast "DescNorm", the number of cast "DescHiLite")
  6. end
  7.  
  8. on mouseUp
  9.   global Descrip, Plane
  10.   set test to buttonUp(Descrip)
  11.   if test then
  12.     sound playFile 1, the pathName & "P" & string(Plane) & ":Audio:Descrip.aif"
  13.     repeat while soundBusy(1)
  14.       if the mouseDown then
  15.         sound stop 1
  16.         exit repeat
  17.       end if
  18.     end repeat
  19.   end if
  20. end
  21.